home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / scr.arc / SCRTEST.COB < prev   
Encoding:
Text File  |  1985-06-25  |  1.1 KB  |  30 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID.  SCRTEST.
  3.       *DEMONSTRATE CALLING AN A SCREEN LOADING PROGRAM.
  4.        ENVIRONMENT DIVISION.
  5.        DATA DIVISION.
  6.        WORKING-STORAGE SECTION.
  7.        77  SCREEN-FN   PIC X(65) VALUE SPACES.
  8.        77  SCREEN-RC   PIC 9999 COMP-0 VALUE 0.
  9.        77  DSPLY-RC    PIC 9999.
  10.        77  SOMETHING   PIC XXXX.
  11.        PROCEDURE DIVISION.
  12.        MAIN.
  13.            MOVE '\ASM\SOURCE\SCRHELPA.SCR' TO SCREEN-FN.
  14.            PERFORM DISPLAY-SCREEN.
  15.            MOVE 'SCRTEST.COB' TO SCREEN-FN.
  16.            PERFORM DISPLAY-SCREEN.
  17.            MOVE 'C:DUMMY.XXX' TO SCREEN-FN.
  18.            PERFORM DISPLAY-SCREEN.
  19.            MOVE 'C:\XXXX\DUMMYY.XXX' TO SCREEN-FN.
  20.            PERFORM DISPLAY-SCREEN.
  21.            STOP RUN.
  22.  
  23.        DISPLAY-SCREEN.
  24.            CALL 'SCRCOB' USING SCREEN-FN, SCREEN-RC.
  25.            IF SCREEN-RC IS NOT EQUAL TO ZERO
  26.                MOVE SCREEN-RC TO DSPLY-RC
  27.                DISPLAY 'ERROR OCCURRED ' DSPLY-RC
  28.            ELSE    
  29.            ACCEPT SOMETHING
  30.            .